﻿Option Explicit On
Option Strict On

''' <summary>
''' Formulario Baja Cliente: Para dar de baja los clientes de la BBDD
''' </summary>
''' <author>Julio Antoranz</author>
''' 
Public Class BajaCliente

    Private miBBDD As BBDD

    Private Sub BajaCliente_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'Database1DataSet.cliente' Puede moverla o quitarla según sea necesario.
        Me.ClienteTableAdapter.Fill(Me.Database1DataSet.cliente)
        DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
        DataGridView1.MultiSelect = False
        miBBDD = New BBDD

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If MessageBox.Show("¿Desea eliminar el cliente " & "?", "Confirmación", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
                miBBDD.Conectar()
            If miBBDD.BorraCliente(CInt(DataGridView1.CurrentRow.Cells(0).Value)) Then
                MsgBox("Cliente borrado con éxito", , "Terminado")
                DataGridView1.Rows.Remove(DataGridView1.CurrentRow)
            Else
                MsgBox("Hubo un problema al borrar el cliente", MsgBoxStyle.Exclamation, "Error")
            End If
                miBBDD.Desconectar()
            End If

    End Sub
End Class